Attribute VB_Name = "ModMain"
Public Ret As GpStatus
Public GDI As KGDI


Sub main()
Ret = InitGDIPlus
Set GDI = New KGDI
Call GDI.initGDI(frmMain)



Dim pic As Long
pic = GDI.loadImageFromFile(App.Path & "\test.bmp")


'
'
'Call GDI.drawLine(0, 0, 150, 150)
Dim tick As Long
tick = GetTickCount
While True
GDI.drawImage pic
Call GDI.drawString(1000 / (GetTickCount - tick + 1))
tick = GetTickCount
Wend
GdipDisposeImage pic

Set GDI = Nothing
TerminateGDIPlus
End Sub
